home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Updates⁄New / MemoNoteStack 4.0 / card_2885.txt < prev    next >
Encoding:
Text File  |  1988-03-06  |  11.5 KB  |  288 lines

  1. -- card: 2885 from stack: in.0
  2. -- bmap block id: 2463
  3. -- flags: 4000
  4. -- background id: 2781
  5. -- name: 
  6.  
  7.  
  8. -- part 324 (button)
  9. -- low flags: 00
  10. -- high flags: 8002
  11. -- rect: left=434 top=261 right=126 bottom=54
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: TempGrowScript
  20. ----- HyperTalk script -----
  21. put"NoteGrowButton"&return after growButtonScript
  22. put"**"&return after growButtonScript
  23. put"on mousedown"&return after growButtonScript
  24. put"  global DragRect, ClipRect,screenRect"&return after growButtonScript
  25. put"  put the rect of card field id (the id of me -1) into clipRect"&return after growButtonScript
  26. put"  put item 1 to 2 of clipRect into dragRect"&return after growButtonScript
  27. put"  put ","&item 3 to 4 of screenRect after dragRect"&return after growButtonScript
  28. put"  "&return after growButtonScript
  29. put"  repeat while the mouse is down and ¬¨"&return after growButtonScript
  30. put"    pointinRect (the mouseLoc, the rect of the target)"&return after growButtonScript
  31. put"  end repeat"&return after growButtonScript
  32. put"  repeat until the mouse is up -- doDragButton"&return after growButtonScript
  33. put"    get the mouseLoc"&return after growButtonScript
  34. put"    if pointinRect (it, dragRect) then set the loc of target to it"&return after growButtonScript
  35. put"  end repeat"&return after growButtonScript
  36. put"end mousedown"&return after growButtonScript
  37. put"***"&return after growButtonScript
  38. put"on mouseup"&return after growButtonScript
  39. put"  global gMoveNote"&return after growButtonScript
  40. put"  put true into gMoveNote"&return after growButtonScript
  41. put"  put the rect of me into myRect"&return after growButtonScript
  42. put"  put the id of me into myID"&return after growButtonScript
  43. put"  get the rect of card field id (myID -1)"&return after growButtonScript
  44. put"  put item 3 of myRect into item 3 of it"&return after growButtonScript
  45. put"  put item 2 of myRect into item 4 of it"&return after growButtonScript
  46. put"  set the rect of  card field id (myID -1) to it"&return after growButtonScript
  47. put"  put the visible of card field id (myID -1)  into showing"&return after growButtonScript
  48. put"  send showfield to card button id (myID -2)"&return after growButtonScript
  49. put"  "&return after growButtonScript
  50. put"end mouseUp"&return after growButtonScript
  51. put""&return after growButtonScript
  52. put""&return after growButtonScript
  53. put"****"&return after growButtonScript
  54. put"on showGrow"&return after growButtonScript
  55. put"  put the rect of me into myRect"&return after growButtonScript
  56. put"  get the rect of card field id (the id of me -1)"&return after growButtonScript
  57. put"  put item 3 of it -17 into item 1 of myRect"&return after growButtonScript
  58. put"  put item 4 of it into item 2 of myRect"&return after growButtonScript
  59. put"  put item 3 of it into item 3 of myRect"&return after growButtonScript
  60. put"  put item 4 of it +17 into item 4 of myRect"&return after growButtonScript
  61. put"  set the rect of me to myRect"&return after growButtonScript
  62. put"  set the visible of me to true"&return after growButtonScript
  63. put"end showGrow"&return after growButtonScript
  64. put"MemoNotes‚Ñ¢ Hypernote system"&return after growButtonScript
  65. put"¬©1988 PeterFraterdeus"&return after growButtonScript
  66. put"CIS 73306,2703"&return after growButtonScript
  67. put"ShareWare-$15. to: Alphabets, Inc."&return after growButtonScript
  68. put"804 Dempster St./ Evanston, IL. 60202"&return after growButtonScript
  69.  
  70.  
  71.  
  72. -- part 417 (field)
  73. -- low flags: 01
  74. -- high flags: 2007
  75. -- rect: left=211 top=109 right=269 bottom=438
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 9
  81. -- style flags: 0
  82. -- line height: 12
  83. -- part name: Note 417
  84.  
  85.  
  86. -- part 418 (button)
  87. -- low flags: 00
  88. -- high flags: C002
  89. -- rect: left=211 top=88 right=109 bottom=344
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: MemoNoteSystem
  98. ----- HyperTalk script -----
  99. *NoteButtonScript*4.0
  100. on mouseup
  101.   send NoteButtonMouseUp
  102. end MouseUp
  103.  
  104. ****This note created 2/23/88
  105. MemoNotes‚Ñ¢ Hypernote system
  106. ¬©1988 PeterFraterdeus
  107. CIS 73306,2703
  108. ShareWare-$15. to: Alphabets, Inc.
  109. 804 Dempster St./ Evanston, IL. 60202
  110.  
  111.  
  112.  
  113. -- part 419 (button)
  114. -- low flags: 00
  115. -- high flags: 4002
  116. -- rect: left=421 top=269 right=286 bottom=438
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 1018 / 1018
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: Grow
  125. ----- HyperTalk script -----
  126. NoteGrowButton
  127. **
  128. on mousedown
  129.   send NoteGrowMouseDown
  130. end mousedown
  131. ***
  132. on mouseup
  133.   send NoteGrowMouseUp
  134. end mouseUp
  135. ****
  136. on showGrow
  137.   send showGrowButton
  138. end showGrow
  139.  
  140. MemoNotes‚Ñ¢ Hypernote system
  141. ¬©1988 PeterFraterdeus
  142. CIS 73306,2703
  143. ShareWare-$15. to: Alphabets, Inc.
  144. 804 Dempster St./ Evanston, IL. 60202
  145.  
  146.  
  147.  
  148. -- part 427 (button)
  149. -- low flags: 00
  150. -- high flags: A002
  151. -- rect: left=48 top=200 right=219 bottom=189
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: More on DoMeNotes
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   go to card id 3883
  163. end mouseUp
  164.  
  165.  
  166.  
  167.  
  168. -- part 429 (button)
  169. -- low flags: 00
  170. -- high flags: A002
  171. -- rect: left=48 top=224 right=243 bottom=189
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: More on Install
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   go to card id 2271
  183. end mouseUp
  184.  
  185.  
  186.  
  187.  
  188. -- part 461 (button)
  189. -- low flags: 00
  190. -- high flags: A002
  191. -- rect: left=48 top=176 right=195 bottom=189
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: MemoNote Settings
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   go to card id 4731
  203. end mouseUp
  204.  
  205.  
  206.  
  207.  
  208. -- part contents for card part 417
  209. ----- text -----
  210. MemoNotes‚Ñ¢ System (Ver4.1.1 ) 23Feb1988 ¬©1988 Alphabets, Inc.
  211. * * * * * * * * * * * * * * * * * * * * See Shareware Message at end!!!
  212. Free Offer with Registration!
  213. * * * * * * * * * * * * * * * * * * * * 
  214. The script for this Stack contains the MemoNotes‚Ñ¢ system (Version 4.1.1 ), written by Peter Fraterdeus. MemoNotes creates a NoteField on your cards at your click, with a button attached which alternately shows and hides the Note.
  215. ‚Ä¢Do Me Note‚Ñ¢  is an extension of MemoNotes which creates an interactive Hypertalk Field.
  216. The Do Me Note is made by Option-clicking while choosing the location of the new Note. 
  217. (ver. 4.0) See 'More on DoMeNotes'
  218. ‚Ä¢ If you drag the mouse after clicking, the note will be made as large as you like. If the size is less than the minimum of 50 x 100 pixels, the note is made to the default of 100 x 162.
  219. ‚Ä¢ A GrowButton is created as well (ver. 3.0), allowing you to change the size of the note at any time.
  220. ‚Ä¢ Command-Click on a note field brings it to the front (ver 4.1 ).
  221. ‚Ä¢MemoNoteSettings lets you set up the default style and font of your Notes.
  222. See 'MemoNoteSettings'.
  223.  
  224. To use MemoNotes, Install the whole script into your Home Stack (see 'More on Install') and copy the MemoNote button 
  225. (see Magic Copy, below) to the Background of the stack where you will be using the MemoNotes. 
  226.  
  227. MemoNotes is shareware, ¬©1988 by Peter Fraterdeus. If you find it useful, help keep shareware healthy by sending $20, or at least a neat postcard with your enthusiastic kudos to me at Alphabets, Inc., Box 5448, Evanston, Illinois 60204-5448
  228. I can also be found on CompuServe 73306,2703, or by phone 312 328 2733.
  229. See Free Offer at end!!!
  230.  
  231. * * * * * * * * * * * * * * * * * * * * *  The MemoNote button prompts you to click on the position that you want your new Note. The Field is Scrolling by default, but may be changed to Lined-Rectangle by Command-Shift-Clicking on it. The Note Button will show or hide its field when clicked.
  232.  
  233. You can change the style and name of the button, but the name must include the word Note for the global ShowNotes message to act on it. (See below for ShowNotes)
  234. The Note Button will move to another location if you drag it immediately after clicking on it (preserving the visible state and field size).  The Message box is used for prompting since the ridiculous "Ask" and "Answer" dialog boxes cover the card and won't redraw until the script is finished.  However, the Msg is restored‚Ķ
  235.  
  236. ***MemoNote changes to ShowNotes when clicked with the option key down. This shows or hides all the Notes on a card. ShowNotes uses a global variable to determine the last state, and so sometimes two clicks will be necessary to show or hide all the Notes. 
  237.  
  238. ***To Remove a Note click on the button, not the field, with the option key down. You are asked to confirm the deletion. (V2.1) Be careful with this, as you can't get your text back, once the field has been removed! 
  239.  
  240. ***Magic Button Copy***
  241. The MemoNote button can be copied to the clipboard by Shift-Option-Clicking on it while you are in browse mode. 
  242.  
  243. *** I have found these little notes to be quite useful in the Calendar stacks, for making extended notations on a particular day, as well as in the Phone stack, where I have my entire phone list in one MemoNote, and can find and dial any number without leaving the card!
  244.  
  245. *TransferScripts is a development tool for creating script writing scripts.
  246. The concept is to create a working model of the object (a note button in this case) and create a chunk of imbedded script that can be copied to the object creating script.
  247. *See the script for more details. It needs to be customized for your uses, but may be found of interest.
  248.  
  249. *One thing about a little project like this is that friends and family just can't understand why you're so excited about it! It seems so simple! At least until you look at the scripts!
  250. Please let me know how you like this! Or if any of it is useful to you! If you use any of my Script ideas, please give me credit for them, and use them in good health!
  251. This is my first serious attempt. I would love to get feedback from some of the HT pros‚Ķ
  252.  
  253. Thanks!
  254.  
  255. Peter 
  256.  
  257. PS. I've found it useful to emulate a few toolbox-like functions, which are included in the MemoNotes Script. The most useful are 
  258.  
  259. PointinRect (aPoint, aRect):boolean
  260.   ie:
  261.  put "6,7,506,333" into dragRect
  262.  ‚Ķ
  263.  get the mouseLoc
  264.  if pointinRect (it, dragRect) then
  265.         set the loc of target to it
  266.  ‚Ķ
  267.  
  268. function getHV (aRect):[h,v]
  269. ie:
  270. put getHV(the Target) -- returns the height and width of the target
  271.  
  272.   I hope you‚Äôll find MemoNotes‚Ñ¢ as useful as I have! Please let me know, and if you find it useful enough, support the shareware ideal by registering your use of MemoNotes. You'll be supporting the further development of ideas like this one, and will be entered into our mailing list, and will possibly receive a sample issue of MiceType‚Ñ¢, our Quarterly Journal of Macintosh Typography and Design, as well as other good stuff. (Regularly $15/issue).
  273. As a registered user you will be sent the key to disable the Shareware messages that come up in your notes, and to unprotect the stack. The Main script is installed into your home stack, but there are some neat tricks used in the Settings card that you‚Äôll have to wait for....
  274.  
  275. DoMeNotes‚Ñ¢ ¬©1988
  276. Interactive Fields from MemoNotes
  277. MemoNotes‚Ñ¢ Hypernote system
  278. ¬©1988 PeterFraterdeus
  279. CIS 73306,2703
  280. ShareWare-$20. to: Alphabets, Inc.
  281. Box 5448 / Evanston, IL. 60204-5448
  282. 312-328-2733
  283.  
  284.  
  285.  
  286. -- part contents for background part 31
  287. ----- text -----
  288. Version 4.1.1